home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Collection of Tools & Utilities
/
Collection of Tools and Utilities.iso
/
ada
/
c01lab1.zip
/
SIMLATRS
/
SSI_TEST.A
< prev
next >
Wrap
Text File
|
1992-11-11
|
1KB
|
41 lines
with Spacecraft_Sensor_Interface; use Spacecraft_Sensor_Interface;
with Console;
procedure SSI_Test is
procedure Display is
P : PRESSURE;
T : TEMPERATURE;
R : RADIATION_LEVEL;
begin
Update;
for I in SPACECRAFT_SECTION loop
Console.Put(" ");
case I is
when BRIDGE => Console.Put("Bridge ");
when AUXILIARY_BRIDGE => Console.Put("Auxiliary Bridge ");
when CREW_QUARTERS => Console.Put("Crew Quarters ");
when GALLEY => Console.Put("Galley ");
when LAB1 => Console.Put("Lab 1 ");
when LAB2 => Console.Put("Lab 2 ");
when LAB3 => Console.Put("Lab 3 ");
when AIRLOCK1 => Console.Put("Air Lock 1 ");
when AIRLOCK2 => Console.Put("Air Lock 2 ");
when EXPERIMENT_BAY => Console.Put("Experiment Bay ");
end case;
P := Sensed_Value(I);
T := Sensed_Value(I);
R := Sensed_Value(I);
Console.Put(FLOAT(P), 5, 1);
Console.Put(FLOAT(T), 5, 1);
Console.Put(FLOAT(R), 5, 1);
Console.New_Line;
end loop;
end Display;
begin
for I in 1..40 loop
Console.Put_Line("Event");
Display;
end loop;
end SSI_Test;